Hardcore Visual Basic 5.0 (2nd Edition)/Hardcore Visual Basic 5.0 - Second Edition (1997)(Microsoft Press).iso/Code/GlobWiz.frm

Text File | 1997-06-14 | 26KB | 862 lines

VERSION 5.00
Begin VB.Form FGlobalWizard
   Caption         =   "Global Wizard"
   ClientHeight    =   6720
   ClientLeft      =   780
   ClientTop       =   2190
   ClientWidth     =   8280
   Icon            =   "GlobWiz.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   6720
   ScaleWidth      =   8280
   Begin VB.CheckBox chkDeclView
      Caption         =   "View"
      Enabled         =   0   'False
      Height          =   285
      Left            =   7275
      TabIndex        =   23
      Top             =   2490
      Width           =   780
   End
   Begin VB.TextBox txtSrcModName
      Enabled         =   0   'False
      Height          =   285
      Left            =   1335
      TabIndex        =   21
      Top             =   1845
      Width           =   1788
   End
   Begin VB.TextBox txtSrcModType
      Enabled         =   0   'False
      Height          =   285
      Left            =   1335
      TabIndex        =   18
      Top             =   2145
      Width           =   1788
   End
   Begin VB.TextBox txtSrcFileName
      Enabled         =   0   'False
      Height          =   285
      Left            =   1335
      TabIndex        =   17
      Top             =   1530
      Width           =   1788
   End
   Begin VB.TextBox txtDeclFileName
      Enabled         =   0   'False
      Height          =   285
      Left            =   5415
      TabIndex        =   13
      Top             =   2445
      Width           =   1788
   End
   Begin VB.TextBox txtDstModType
      Enabled         =   0   'False
      Height          =   285
      Left            =   5415
      TabIndex        =   12
      Top             =   2145
      Width           =   1788
   End
   Begin VB.CheckBox chkDelegate
      Caption         =   "Delegate"
      Height          =   204
      Left            =   5415
      TabIndex        =   11
      Top             =   1275
      Width           =   1488
   End
   Begin VB.TextBox txtDstFileName
      Height          =   285
      Left            =   5415
      TabIndex        =   10
      Top             =   1530
      Width           =   1788
   End
   Begin VB.TextBox txtDstModName
      Height          =   285
      Left            =   5415
      TabIndex        =   9
      Top             =   1845
      Width           =   1788
   End
   Begin VB.ComboBox cboType
      Height          =   315
      ItemData        =   "GlobWiz.frx":0CFA
      Left            =   2520
      List            =   "GlobWiz.frx":0D07
      TabIndex        =   7
      Text            =   "Both (*.bas and *.cls)"
      Top             =   108
      Width           =   2310
   End
   Begin VB.DriveListBox drvCur
      Height          =   315
      Left            =   108
      TabIndex        =   4
      Top             =   108
      Width           =   2310
   End
   Begin VB.DirListBox dirCur
      Height          =   765
      Left            =   108
      TabIndex        =   3
      Top             =   495
      Width           =   2310
   End
   Begin VB.FileListBox fileCur
      Height          =   675
      Left            =   2505
      Pattern         =   "*.cls;*.bas"
      TabIndex        =   2
      Top             =   480
      Width           =   2310
   End
   Begin VB.CommandButton cmdClose
      Caption         =   "Close"
      Height          =   375
      Left            =   5880
      TabIndex        =   1
      Top             =   600
      Width           =   2256
   End
   Begin VB.CommandButton cmdCreate
      Caption         =   "Save File"
      Height          =   375
      Left            =   5892
      TabIndex        =   0
      Top             =   120
      Width           =   2268
   End
   Begin VB.TextBox txtSrc
      BeginProperty Font
         Name            =   "Courier New"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3696
      Left            =   120
      Locked          =   -1  'True
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   16
      Top             =   2928
      Width           =   3972
   End
   Begin VB.TextBox txtDst
      BeginProperty Font
         Name            =   "Courier New"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3696
      Left            =   4200
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   5
      Top             =   2928
      Width           =   3972
   End
   Begin VB.TextBox txtDecl
      BeginProperty Font
         Name            =   "Courier New"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   3696
      Left            =   120
      MultiLine       =   -1  'True
      ScrollBars      =   3  'Both
      TabIndex        =   24
      Top             =   2928
      Visible         =   0   'False
      Width           =   8050
   End
   Begin VB.Label lbl
      Caption         =   "Module name:"
      Height          =   255
      Index           =   2
      Left            =   120
      TabIndex        =   22
      Top             =   1860
      Width           =   1095
   End
   Begin VB.Label lbl
      Caption         =   "Module type:"
      Height          =   255
      Index           =   3
      Left            =   120
      TabIndex        =   20
      Top             =   2160
      Width           =   1095
   End
   Begin VB.Label lbl
      Caption         =   "Source"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   0
      Left            =   120
      TabIndex        =   19
      Top             =   1530
      Width           =   855
   End
   Begin VB.Label lbl
      Caption         =   "Declarations:"
      Height          =   255
      Index           =   6
      Left            =   4200
      TabIndex        =   15
      Top             =   2460
      Width           =   1095
   End
   Begin VB.Label lbl
      Caption         =   "Module type:"
      Height          =   255
      Index           =   5
      Left            =   4200
      TabIndex        =   14
      Top             =   2175
      Width           =   1095
   End
   Begin VB.Label lbl
      Caption         =   "Module name:"
      Height          =   255
      Index           =   4
      Left            =   4200
      TabIndex        =   8
      Top             =   1875
      Width           =   1095
   End
   Begin VB.Label lbl
      Caption         =   "Target"
      BeginProperty Font
         Name            =   "MS Sans Serif"
         Size            =   9.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Index           =   1
      Left            =   4200
      TabIndex        =   6
      Top             =   1530
      Width           =   855
   End
End
Attribute VB_Name = "FGlobalWizard"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private sFileSrc As String
Private sFileDst As String

Enum EFileType
    eftBoth
    eftStandard
    eftClass
End Enum

Enum EModuleType
    emtStandard
    emtClassPublic
    emtClassGlobal
    emtClassPrivate
    emtInvalid
End Enum

Private emtCur As EModuleType
Private fDeclChanged As Boolean

Sub GetDecl()
    sFileDst = NormalizePath(fileCur.Path)
    sFileDst = sFileDst & txtDeclFileName

    If Not ExistFileDir(sFileDst) Then
        Dim result As VbMsgBoxResult

        result = MsgBox(sFileDst & " doesn't exist. Create? ", vbYesNoCancel, "Global Wizard")
        If result = vbYes Then
            On Error GoTo CreateError
            CreateDeclFile
        Else
            chkDeclView = vbUnchecked
            Exit Sub
        End If
    End If

    On Error GoTo AccessError
    ' Get text of file regardless
    txtDecl = GetFileText(sFileDst)
    fDeclChanged = False
    Exit Sub

CreateError:
    MsgBox Err.Description & sCrLf & sCrLf & _
           "Unable to create file " & sFileDst, vbOKOnly + vbExclamation, "Global Wizard"
    chkDeclView = vbUnchecked
    Exit Sub

AccessError:
    MsgBox Err.Description & sCrLf & sCrLf & _
           "Unable to open file " & sFileDst, vbOKOnly + vbExclamation, "Global Wizard"
    chkDeclView = vbUnchecked
End Sub

Private Sub SaveDecl()
    On Error GoTo SaveError

    fDeclChanged = False
    SaveFileStr sFileDst, txtDecl
    Exit Sub

SaveError:
    MsgBox Err.Description & sCrLf & sCrLf & _
           "Unable to save changes to global object declarations.", vbOKOnly + vbExclamation, "Global Wizard"
End Sub

Private Sub cboType_Click()
    Select Case cboType.ListIndex
    Case eftBoth
        fileCur.Pattern = "*.cls;*.bas"
    Case eftStandard
        fileCur.Pattern = "*.bas"
    Case eftClass
        fileCur.Pattern = "*.cls"
    End Select
    fileCur.Refresh
    If fileCur.ListCount > 0 Then
        fileCur.ListIndex = 0
    Else
        DisplayNothing
    End If
End Sub

Private Sub chkDeclView_Click()
    On Error GoTo FileError

    ' Save changes to current declarations file
    If fDeclChanged Then SaveDecl
    ' Load new declarations file
    If chkDeclView = vbChecked Then GetDecl

    ' Update the display
    cmdCreate.Enabled = (chkDeclView = vbUnchecked)
    chkDelegate.Enabled = (chkDeclView = vbUnchecked)
    txtDstFileName.Enabled = (chkDeclView = vbUnchecked)
    txtDstModName.Enabled = (chkDeclView = vbUnchecked)
    txtSrc.Visible = (chkDeclView = vbUnchecked)
    txtDst.Visible = (chkDeclView = vbUnchecked)
    txtDecl.Visible = (chkDeclView = vbChecked)
    Exit Sub

FileError:
    MsgBox Err.Description & sCrLf & sCrLf & _
           "Unable to open file " & sFileDst, vbOKOnly + vbExclamation, "Global Wizard"
    chkDeclView = vbUnchecked
    Resume Next
End Sub

Private Sub chkDelegate_Click()
    If chkDelegate Then
        txtDeclFileName.Text = "N/A"
        txtDeclFileName.Enabled = False
        chkDeclView.Enabled = False
    Else
        txtDeclFileName.Text = "Objects.Bas"
        txtDeclFileName.Enabled = True
        chkDeclView.Enabled = True
    End If
    UpdateTargetFileDisplay
End Sub

Private Sub cmdClose_Click()
    Unload Me
End Sub

Private Sub cmdCreate_Click()
    On Error GoTo FileError
    Dim sPath As String

    sPath = NormalizePath(fileCur.Path)
    sFileDst = sPath & txtDstFileName
    If ExistFile(sFileDst) Then
        If CreateBackupFile = vbCancel Then Exit Sub
    End If
    SaveFileStr sFileDst, txtDst

    If (emtCur = emtStandard) And (chkDelegate = vbUnchecked) Then
        sFileDst = sPath & txtDeclFileName
        If Not ExistFile(sFileDst) Then CreateDeclFile
        UpdateDeclFile
    End If
    Exit Sub

FileError:
    MsgBox Err.Description & sCrLf & sCrLf & _
           "Unable to create file " & sFileDst, vbOKOnly + vbExclamation, "Global Wizard"
End Sub

Private Sub dirCur_Change()
    fileCur.Path = dirCur.Path
    If fileCur.ListCount > 0 Then
        fileCur.ListIndex = 0
    Else
        DisplayNothing
    End If
End Sub

Private Sub drvCur_Change()
    dirCur.Path = drvCur.Drive
End Sub

Private Sub fileCur_Click()
    sFileSrc = NormalizePath(fileCur.Path)
    sFileSrc = sFileSrc & fileCur.filename

    Dim sModName As String
    txtSrc = GetModuleInfo(sFileSrc, sModName)
    txtSrcModName = sModName
    txtSrcFileName = GetFileBaseExt(sFileSrc)

    Select Case emtCur
    Case emtInvalid
        DisplayInvalid
    Case emtStandard
        DisplayStandard
    Case emtClassPublic
        DisplayPublic
    Case emtClassGlobal
        DisplayGlobal
    Case emtClassPrivate
        DisplayPrivate
    End Select
    If emtCur <> emtInvalid Then
        txtDstFileName.Enabled = True
        cmdCreate.Enabled = True
        UpdateTargetFileDisplay
    End If
End Sub

Private Sub Form_Load()
    ChDir App.Path
    If fileCur.ListCount > 0 Then
        fileCur.ListIndex = 0
    End If
End Sub

Function GetModuleInfo(sFileSrc As String, sModName As String) As String
    Dim s As String, iStart As Long, iEnd As Long, sTmp As String
    Const sTargetName As String = "Attribute VB_Name = """
    Const sTargetPublic As String = "VB_Exposed = "
    Const sTargetGlobal As String = "Attribute VB_GlobalNameSpace = "

    On Error GoTo FailGetModuleInfo
    ' Get text of file regardless
    s = GetFileText(sFileSrc)
    ' Find module name
    iStart = InStr(s, sTargetName)
    If iStart = 0 Then GoTo FailGetModuleInfo
    iStart = iStart + Len(sTargetName)
    iEnd = InStr(iStart, s, sQuote2)
    If iEnd = 0 Then GoTo FailGetModuleInfo
    sModName = Mid$(s, iStart, iEnd - iStart)
    ' Find module type
    If UCase$(GetFileExt(sFileSrc)) = ".BAS" Then
        emtCur = emtStandard
    Else
        ' Find public attribute
        iStart = InStr(s, sTargetPublic)
        If iStart = 0 Then GoTo FailGetModuleInfo
        iStart = iStart + Len(sTargetPublic)
        sTmp = Mid$(s, iStart, 1)
        Select Case sTmp
        Case "F"
            emtCur = emtClassPrivate
        Case "T"
            ' Find global attribute
            iStart = InStr(s, sTargetGlobal)
            If iStart = 0 Then GoTo FailGetModuleInfo
            iStart = iStart + Len(sTargetGlobal)
            sTmp = Mid$(s, iStart, 1)
            Select Case sTmp
            Case "F"
                emtCur = emtClassPublic
            Case "T"
                emtCur = emtClassGlobal
            Case Else
                GoTo FailGetModuleInfo
            End Select
        Case Else
            GoTo FailGetModuleInfo
        End Select
    End If
    GetModuleInfo = s
    Exit Function

FailGetModuleInfo:
    ' Any number of reasons why module might be invalid
    emtCur = emtInvalid
    GetModuleInfo = s
End Function

Sub UpdateTargetFileDisplay()
    HourGlass Me

    ' Select the appropriate filter and assign to any old object
    Dim filterobj As Object
    Select Case emtCur
    Case emtStandard
        If chkDelegate Then
            ' Translates standard module to global class with delegation
            Set filterobj = New CModGlobDelFilter
        Else
            ' Translates standard module to global class w/o delegation
            Set filterobj = New CModGlobFilter
        End If
    Case emtClassPublic
        ' Translates public class to private class
        Set filterobj = New CPubPrivFilter
    Case emtClassGlobal
        ' Translates global class to standard module
        Set filterobj = New CGlobModFilter
    Case emtClassPrivate
        ' Translates private class to public class
        Set filterobj = New CPrivPubFilter
    Case Else
        txtDst = ""
        Exit Sub
    End Select
    ' Setting name isn't performance sensitive, so do it late bound
    filterobj.Name = txtDstModName

    ' Use early-bound variable for performance sensitive filter
    Dim filter As IFilter
    Set filter = filterobj
    filter.Source = txtSrc
    FilterText filter
    txtDst = filter.Target
    HourGlass Me
End Sub

Private Sub txtDecl_Change()
    fDeclChanged = True
End Sub

Private Sub txtDeclFileName_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0
        ' Update the same as if we've lost focus
        txtDeclFileName_LostFocus
    End If
End Sub

Private Sub txtDeclFileName_LostFocus()
    Dim sExt As String, sPath As String

    If txtDeclFileName = sEmpty Then
        txtDeclFileName = "Objects.Bas"
    Else
        sPath = NormalizePath(fileCur.Path)
        sExt = GetFileExt(sPath & txtDeclFileName)
        If sExt = sEmpty Then
            txtDeclFileName = txtDeclFileName & ".Bas"
        ElseIf UCase$(sExt) <> ".BAS" Then
            MsgBox "Invalid filename", vbOKOnly + vbExclamation, "Global Wizard"
            txtDeclFileName = "Objects.Bas"
        End If
    End If
    If chkDeclView = vbChecked Then chkDeclView_Click
End Sub

Private Sub txtDstFileName_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0
        ' Update the same as if we've lost focus
        txtDstFileName_LostFocus
    End If
End Sub

Private Sub txtDstFileName_LostFocus()
    Dim sExt As String, sPath As String

    If txtDstFileName <> sEmpty Then
        sPath = NormalizePath(fileCur.Path)
        sExt = GetFileExt(sPath & txtDstFileName)
        ' If no extension, tack on the correct one
        If sExt = sEmpty Then
            sExt = IIf(emtCur = emtClassGlobal, ".Bas", ".Cls")
            txtDstFileName = txtDstFileName & sExt
            Exit Sub
        Else
            ' Normalize the extension
            sExt = UCase$(sExt)
            ' Check for a correct extension
            If sExt = IIf(emtCur = emtClassGlobal, ".BAS", ".CLS") Then
                Exit Sub
            Else
                MsgBox "Invalid extension", vbOKOnly + vbExclamation, "Global Wizard"
            End If
        End If
    End If
    ' Target filename invalid. Display the default
    txtDstFileName = DefaultDstFileName
End Sub

Private Sub txtDstModName_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        KeyAscii = 0
        ' Update the same as if we've lost focus
        txtDstModName_LostFocus
    End If
End Sub

Private Sub txtDstModName_LostFocus()
    If txtDstModName = sEmpty Then txtDstModName = DefaultDstModName
    UpdateTargetFileDisplay
End Sub

Private Sub DisplayInvalid()
    txtSrcModType = "Invalid Module"
    chkDelegate = vbUnchecked
    chkDelegate.Enabled = False
    txtDst = sEmpty
    txtDstFileName = sEmpty
    txtDstFileName.Enabled = False
    txtDstModName = sEmpty
    txtDstModName.Enabled = False
    txtDstModType = sEmpty
    txtDeclFileName.Text = sEmpty
    txtDeclFileName.Enabled = False
    chkDeclView = vbUnchecked
    chkDeclView.Enabled = False
    cmdCreate.Enabled = False
End Sub

Private Sub DisplayStandard()
    txtSrcModType = "Standard Module"
    chkDelegate = vbUnchecked
    chkDelegate.Enabled = True
    txtDstFileName = DefaultDstFileName
    txtDstFileName.Enabled = True
    txtDstModName = DefaultDstModName
    txtDstModName.Enabled = True
    txtDstModType = "Global Class"
    txtDeclFileName.Text = "Objects.Bas"
    txtDeclFileName.Enabled = True
    chkDeclView = vbUnchecked
    chkDeclView.Enabled = True
End Sub

Private Sub DisplayPublic()
    txtSrcModType = "Public Class"
    chkDelegate = vbUnchecked
    chkDelegate.Enabled = False
    txtDstFileName = DefaultDstFileName
    txtDstFileName.Enabled = True
    txtDstModName = DefaultDstModName
    txtDstModName.Enabled = True
    txtDstModType = "Private Class"
    txtDeclFileName.Text = "N/A"
    txtDeclFileName.Enabled = False
    chkDeclView = vbUnchecked
    chkDeclView.Enabled = False
End Sub

Private Sub DisplayGlobal()
    txtSrcModType = "Global Class"
    chkDelegate = vbUnchecked
    chkDelegate.Enabled = False
    txtDstFileName = DefaultDstFileName
    txtDstFileName.Enabled = True
    txtDstModName = DefaultDstModName
    txtDstModName.Enabled = True
    txtDstModType = "Standard Module"
    txtDeclFileName.Text = "N/A"
    txtDeclFileName.Enabled = False
    chkDeclView = vbUnchecked
    chkDeclView.Enabled = False
End Sub

Private Sub DisplayPrivate()
    txtSrcModType = "Private Class"
    chkDelegate = vbUnchecked
    chkDelegate.Enabled = False
    txtDstFileName = DefaultDstFileName
    txtDstFileName.Enabled = True
    txtDstModName = DefaultDstModName
    txtDstModName.Enabled = True
    txtDstModType = "Public Class"
    txtDeclFileName.Text = "N/A"
    txtDeclFileName.Enabled = False
    chkDeclView = vbUnchecked
    chkDeclView.Enabled = False
End Sub

Private Sub DisplayNothing()
    txtSrc = sEmpty
    txtSrcFileName = sEmpty
    txtSrcModName = sEmpty
    txtSrcModType = sEmpty
    txtDst = sEmpty
    chkDelegate = vbUnchecked
    chkDelegate.Enabled = False
    txtDstFileName = sEmpty
    txtDstFileName.Enabled = False
    txtDstModName = sEmpty
    txtDstModName.Enabled = False
    txtDstModType = sEmpty
    txtDeclFileName = sEmpty
    txtDeclFileName.Enabled = False
    chkDeclView = vbUnchecked
    chkDeclView.Enabled = False
    cmdCreate.Enabled = False
End Sub

Private Function DefaultDstFileName() As String
    DefaultDstFileName = GetFileBase(sFileSrc)
    Select Case emtCur
    Case emtStandard
        DefaultDstFileName = DefaultDstFileName & ".Cls"
    Case emtClassGlobal
        DefaultDstFileName = DefaultDstFileName & ".Bas"
    Case emtClassPublic
        DefaultDstFileName = "P_" & DefaultDstFileName & ".Cls"
    Case emtClassPrivate
        DefaultDstFileName = DefaultDstFileName & ".Cls"
        If Left$(DefaultDstFileName, 2) = "P_" Then
            DefaultDstFileName = Mid$(DefaultDstFileName, 3)
        End If
    End Select
End Function

Private Function DefaultDstModName() As String
    Select Case emtCur
    Case emtStandard
        If Left$(txtSrcModName, 1) = "M" Then
            DefaultDstModName = "G" & Right$(txtSrcModName, Len(txtSrcModName) - 1)
        Else
            DefaultDstModName = "G" & txtSrcModName
        End If
    Case emtClassGlobal
        If Left$(txtSrcModName, 1) = "G" Then
            DefaultDstModName = "M" & Right$(txtSrcModName, Len(txtSrcModName) - 1)
        Else
            DefaultDstModName = "M" & txtSrcModName
        End If
    Case emtClassPublic
        DefaultDstModName = txtSrcModName
    Case emtClassPrivate
        DefaultDstModName = txtSrcModName
    End Select
End Function

Private Function CreateBackupFile() As VbMsgBoxResult
    Dim result As VbMsgBoxResult, sTemp As String

    result = MsgBox(sFileDst & " exists. Make backup? ", vbYesNoCancel, "Global Wizard")
    If result = vbYes Then
        sTemp = sFileDst
        Mid$(sFileDst, Len(sFileDst)) = "K"
        If ExistFile(sFileDst) Then Kill sFileDst
        Name sTemp As sFileDst
        sFileDst = sTemp
    End If
    CreateBackupFile = result
End Function

Private Sub CreateDeclFile()
    Dim sHeader As String

    ' Header for global objects declarations module
    sHeader = "Attribute VB_Name = " & sQuote2 & "M" & GetFileBase(sFileDst) & sQuote2 & sCrLf & _
              "Option Explicit" & sCrLf & sCrLf & _
              "' Global Wizard-generated declarations. DO NOT EDIT THIS COMMENT!" & sCrLf

    SaveFileStr sFileDst, sHeader
End Sub

Private Sub UpdateDeclFile()
    On Error GoTo FileError
    Dim sDeclaration As String, sComment As String
    Dim sSrc As String, sDst As String, sLine As String
    Dim iCommentStart As Long, iCommentEnd As Long
    Dim iDeclStart As Long, iDeclEnd As Long

    ' Read in declarations file
    sSrc = GetFileText(sFileDst)

    ' Look for Global Wizard comment
    sComment = "' Global Wizard-generated declarations. DO NOT EDIT THIS COMMENT!"
    iCommentStart = InStr(1, sSrc, sComment, vbTextCompare)
    If iCommentStart = 0 Then
        MsgBox "File " & sFileDst & _
               " is not a Global Wizard-generated file. " & _
               "Unable to update global object declarations.", vbOKOnly + vbExclamation, "Global Wizard"
        Exit Sub
    End If
    iCommentEnd = iCommentStart + Len(sComment) + 1

    ' Look for previous declaration
    sDeclaration = "Public " & txtSrcModName & " As New " & txtDstModName
    iDeclStart = InStr(1, sSrc, sDeclaration, vbTextCompare)
    If iDeclStart = 0 Then
        ' No previous declaration. Insert in sorted order
        sDst = Left$(sSrc, iCommentEnd)
        sLine = GetNextLine(Mid$(sSrc, iCommentEnd + 1))
        Do While (sLine <> sEmpty) And (UCase$(sDeclaration & sCrLf) > UCase$(sLine))
            sDst = sDst & sLine
            sLine = GetNextLine
        Loop

        If sLine = sEmpty Then
            ' Reached EOF. Insert new declaration at end
            sDst = sDst & sDeclaration & sCrLf
        Else
            Dim iRemainder As Integer
            iRemainder = Len(sSrc) - (Len(sDst) + Len(sLine))
            ' Insert new declaration before current line
            sDst = sDst & sDeclaration & sCrLf & sLine
            ' Append the remaining declarations
            sDst = sDst & Right$(sSrc, iRemainder)
        End If
    Else
        ' Previous declaration. Replace with new one
        sDst = sSrc
        Mid$(sDst, iDeclStart, Len(sDeclaration)) = sDeclaration
    End If

    SaveFileStr sFileDst, sDst
    Exit Sub

FileError:
    MsgBox Err.Description & sCrLf & sCrLf & _
           "Unable to update global object declarations.", vbOKOnly + vbExclamation, "Global Wizard"
End Sub